home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / server_diag.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  34.1 KB  |  880 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="include/wmsConstants.inc"-->
  3. <!--#include file="include/wmsLocStrings.inc"-->
  4. <!--#include file="include/wmsCommon.inc"-->
  5. <!--#include file="include/wmsHeader.inc"-->
  6. <!--#include file="include/wmsRefresh.inc"-->
  7. <!--#include file="include/wmsServerHash.inc"-->
  8. <!--#include file="include/wmsconnect.inc"-->
  9. <!--#include file="include/wmsError.inc"-->
  10. <!--#include file="include/wmsToolbar.inc"-->
  11. <!--#include file="include/wmsHelp.inc"-->
  12. <!--#include file="include/wmsPageBanner.inc"-->
  13. <%
  14. '+-------------------------------------------------------------------------
  15. '
  16. '  Microsoft Windows Media
  17. '  Copyright (C) Microsoft Corporation. All rights reserved.
  18. '
  19. '  File:       Server_Diag.asp
  20. '
  21. '  Contents:
  22. '
  23. '--------------------------------------------------------------------------
  24.  
  25. ConnectToServer
  26. BeginErrorHandling
  27.  
  28. if( WMS_SERVICE_STARTED <> g_dwConnectionFailureCode ) then
  29.     Response.Redirect( "include/server_stopped.asp?server=" & qs("server") )
  30. end if
  31.  
  32. Dim objDiag
  33. Dim dwNumMessages
  34. Dim bDisplayLimitHits
  35. Dim bDisplayServerWarnings
  36. Dim bDisplayServerErrors
  37. Dim bDisplayPluginWarnings
  38. Dim bDisplayPluginErrors
  39. Dim strTrimmedOp
  40. Dim bDriveUpdateToTreeView
  41. Dim dwNumErrorsToStore
  42.  
  43. dwTabIndex = 1
  44. dwNumMessages = 0
  45.  
  46. bDisplayLimitHits = FALSE
  47. bDisplayPluginWarnings = FALSE
  48. bDisplayPluginErrors = FALSE
  49. bDisplayServerWarnings = FALSE
  50. bDisplayServerErrors = FALSE
  51.  
  52. dwNumErrorsToStore = g_objServer.Limits.DiagnosticEvents
  53.  
  54. on error resume next
  55.  
  56. if( 0 < Len( trim( qs("NumEntries") ) ) ) then
  57.     dwNewNum = CDbl( trim( qs("NumEntries") ) )
  58.     if( dwNumErrorsToStore <> dwNewNum ) then
  59.         g_objServer.Limits.DiagnosticEvents = dwNewNum
  60.         if( ErrorDetected( "NumErrors" ) ) then
  61.             dwNumErrorsToStore = dwNewNum
  62.             Session( "PageReloadedToDisplayError" ) = 1
  63.         else
  64.             dwNumErrorsToStore = g_objServer.Limits.DiagnosticEvents
  65.         end if
  66.     end if
  67. end if
  68.  
  69. dwNumErrorsToStore 
  70.  
  71. strTrimmedOp = trim( qs( "op" ) )
  72. if( 0 < len( strTrimmedOp ) ) then
  73.  
  74.     Dim szExtraArgs
  75.     szExtraArgs = ""
  76.  
  77.     if( 0 = StrComp( strTrimmedOp, "clear", vbTextCompare ) ) then
  78.         set objDiagEvents = g_objServer.DiagnosticEvents
  79.         objDiagEvents.RemoveAll
  80.         szExtraArgs = "&updateTree=1"
  81.  
  82.     elseif( 0 = StrComp( strTrimmedOp, "LimitHits", vbTextCompare ) ) then
  83.         if( "on" = qs("value") ) then
  84.             Session( "CBTroubleshootingLimitHits" ) = TRUE
  85.         else
  86.             Session( "CBTroubleshootingLimitHits" ) = FALSE
  87.         end if
  88.  
  89.     elseif( 0 = StrComp( strTrimmedOp, "PluginWarnings", vbTextCompare ) ) then
  90.  
  91.         if( "on" = qs("value") ) then     
  92.             Session( "CBTroubleshootingPluginWarnings" ) = TRUE
  93.         else
  94.             Session( "CBTroubleshootingPluginWarnings" ) = FALSE   
  95.         end if
  96.         
  97.     elseif( 0 = StrComp( strTrimmedOp, "PluginErrors", vbTextCompare ) ) then
  98.  
  99.         if( "on" = qs("value") ) then     
  100.             Session( "CBTroubleshootingPluginErrors" ) = TRUE
  101.         else
  102.             Session( "CBTroubleshootingPluginErrors" ) = FALSE   
  103.         end if
  104.  
  105.     elseif( 0 = StrComp( strTrimmedOp, "ServerWarnings", vbTextCompare ) ) then
  106.  
  107.         if( "on" = qs("value") ) then     
  108.             Session( "CBTroubleshootingServerWarnings" ) = TRUE
  109.         else
  110.             Session( "CBTroubleshootingServerWarnings" ) = FALSE   
  111.         end if
  112.         
  113.     elseif( 0 = StrComp( strTrimmedOp, "ServerErrors", vbTextCompare ) ) then
  114.  
  115.         if( "on" = qs("value") ) then     
  116.             Session( "CBTroubleshootingServerErrors" ) = TRUE
  117.         else
  118.             Session( "CBTroubleshootingServerErrors" ) = FALSE   
  119.         end if
  120.  
  121.     end if
  122.     Response.Redirect( "server_diag.asp?server=" & g_strQueryStringServer & szExtraArgs )
  123.     Response.Flush
  124.     Response.End
  125.     err.clear
  126.     
  127. end if
  128.  
  129. bDisplayLimitHits = Session( "CBTroubleshootingLimitHits" )
  130. bDisplayPluginWarnings = Session( "CBTroubleshootingPluginWarnings" )
  131. bDisplayPluginErrors = Session( "CBTroubleshootingPluginErrors" )
  132. bDisplayServerWarnings = Session( "CBTroubleshootingServerWarnings" )
  133. bDisplayServerErrors = Session( "CBTroubleshootingServerErrors" )
  134.  
  135. bDriveUpdateToTreeView = CBool( 0 < Len( qs("updateTree") ) )
  136. Set objDiag = g_objServer.DiagnosticEvents
  137.  
  138.  
  139. '/////////////////////////////////////////////////
  140. Sub GetErrDescription( byRef objErr, byVal errType, byRef strErrorDescription, byRef strErrorAltText )
  141.     on error resume next
  142.     
  143.     Dim strErrName
  144.     Dim strErrAdditionalInfo
  145.     
  146.     strErrName = objErr.Name
  147.     strErrAdditionalInfo = objErr.AdditionalInfo
  148.     
  149.     strErrorDescription = Server.HTMLEncode( strErrName ) & " " & Server.HTMLEncode( EventString( errType ) ) & "<br>" & strErrAdditionalInfo
  150.     strErrorAltText = strErrName
  151.     if( 0 < Len( strErrorAltText ) ) then
  152.         strErrorAltText = strErrorAltText & " - "
  153.     end if
  154.     strErrorAltText = strErrorAltText & Server.HTMLEncode( EventString( errType ) )
  155.     if( 0 < Len( strErrAdditionalInfo ) ) then
  156.         strErrorAltText = strErrorAltText & " - " & strErrAdditionalInfo
  157.     end if
  158. End Sub
  159.  
  160. '/////////////////////////////////////////////////
  161. Function AcceptEventType( dwEvent )
  162.     if( WMS_DIAGNOSTIC_EVENT_LIMIT_HIT = dwEvent ) then
  163.         AcceptEventType = bDisplayLimitHits
  164.     elseif( WMS_DIAGNOSTIC_EVENT_PLUGIN_EVENT_LOG_ERROR = dwEvent ) then
  165.         AcceptEventType = bDisplayPluginErrors
  166.     elseif( WMS_DIAGNOSTIC_EVENT_PLUGIN_EVENT_LOG_WARNING = dwEvent ) then
  167.         AcceptEventType = bDisplayPluginWarnings
  168.     elseif( WMS_DIAGNOSTIC_EVENT_SERVER_EVENT_LOG_ERROR = dwEvent ) then
  169.         AcceptEventType = bDisplayServerErrors
  170.     elseif( WMS_DIAGNOSTIC_EVENT_SERVER_EVENT_LOG_WARNING = dwEvent ) then
  171.         AcceptEventType = bDisplayServerWarnings
  172.     else
  173.         AcceptEventType = TRUE
  174.     end if
  175. End Function
  176.  
  177.  
  178. '///////////////////////////////////////////////////////////////
  179. Function EventString( errType )
  180.     if( WMS_DIAGNOSTIC_EVENT_LIMIT_HIT = errType ) then
  181.         EventString = L_LIMITEXCEEDED_TEXT
  182.     elseif ( WMS_DIAGNOSTIC_EVENT_PLUGIN_EVENT_LOG_ERROR = errType ) then
  183.         EventString = L_PLUGINERROR_TEXT
  184.     elseif ( WMS_DIAGNOSTIC_EVENT_PLUGIN_EVENT_LOG_WARNING = errType ) then
  185.         EventString = L_PLUGINWARNING_TEXT
  186.     elseif ( WMS_DIAGNOSTIC_EVENT_SERVER_EVENT_LOG_ERROR = errType ) then
  187.         EventString = L_SRVLOGERROR_TEXT
  188.     elseif ( WMS_DIAGNOSTIC_EVENT_SERVER_EVENT_LOG_WARNING = errType ) then
  189.         EventString = L_SRVLOGWRN_TEXT
  190.     else
  191.         EventString = ""
  192.     end if
  193. End Function
  194.  
  195.  
  196. '////////////////////////////////////////////////////////////////
  197. Function AtLeastOneError()
  198.     AtLeastOneError = FALSE
  199.     dwNumMessages = objDiag.Count
  200.     i = 0
  201.     dwNumMessagesDisplayed = 0
  202.  
  203.     i = 0
  204.     while ( i < dwNumMessages )
  205.         set objMessage = objDiag.Item( i )
  206.         errType = objMessage.Type
  207.         if( AcceptEventType( errType ) ) then
  208.             if ( WMS_DIAGNOSTIC_EVENT_PLUGIN_EVENT_LOG_ERROR = errType ) then
  209.                 AtLeastOneError = TRUE
  210.                 Exit Function
  211.             elseif ( WMS_DIAGNOSTIC_EVENT_SERVER_EVENT_LOG_ERROR = errType ) then
  212.                 AtLeastOneError = TRUE
  213.                 Exit Function
  214.             end if
  215.         end if
  216.         i = i + 1
  217.     wend
  218. End Function
  219.  
  220.  
  221. '////////////////////////////////////////////////////////////////
  222. Function CreateTabTitle( strServerName )
  223.     Dim strTemplate    
  224.     strTemplate = Server.HTMLEncode( L_TROUBLESHOOTINGTITLE_TEXT )
  225.     CreateTabTitle = Replace( strTemplate, "___", Server.HTMLEncode( strServerName ), 1 )
  226. End Function
  227.  
  228. WriteHTMLHeader( g_strDecodedServerName ) 
  229. WriteRefreshMetaTag
  230. %>
  231. <link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  232. <%
  233. %>
  234. <script language="JavaScript" src="include/WMSCommon.js"></script>
  235. <script language="javascript">
  236. <!--
  237. /*@cc_on @*/
  238. <% WriteCommonJSUtils %>
  239.  
  240. ///////////////////////////////////////////////////////////////////////
  241. function PrintLocalizedTimestamp( dwUTCDate )
  242. {
  243.     <% jsTRY %>
  244.     var dateTimeUTC;
  245.     dateTimeUTC = new Date( dwUTCDate ); 
  246.     document.write( dateTimeUTC.toLocaleString() );
  247.     <% jsCATCH %>
  248. }
  249.  
  250. ///////////////////////////////////////////////////////////////////////
  251. function PrintLocalizedDate( dwUTCDate )
  252. {
  253.     <% jsTRY %>
  254.     var dateTimeUTC;
  255.     var szLocDate;
  256.     dateTimeUTC = new Date( dwUTCDate );
  257. /*@if (@_jscript_version >= 5.5)
  258.     szLocDate = dateTimeUTC.toLocaleDateString(); 
  259.    @else @*/
  260.     szLocDate = dateTimeUTC.toLocaleString(); 
  261. /*@end @*/
  262.     document.write( szLocDate );
  263.     <% jsCATCH %>
  264. }
  265.  
  266. ///////////////////////////////////////////////////////////////////////
  267. function PrintLocalizedTime( dwUTCDate )
  268. {
  269.     <% jsTRY %>
  270.     var dateTimeUTC;
  271.     var szLocTime;
  272.     dateTimeUTC = new Date( dwUTCDate ); 
  273. /*@if (@_jscript_version >= 5.5)
  274.     szLocTime = dateTimeUTC.toLocaleTimeString(); 
  275.    @else @*/
  276.     szLocTime = dateTimeUTC.toLocaleString();
  277. /*@end @*/
  278.     document.write( szLocTime );
  279.     <% jsCATCH %>
  280. }
  281.  
  282. var g_bWarnedUser = false;
  283.  
  284. ///////////////////////////////////////////////////////////////////////
  285. function ValidateInput()
  286. {
  287.     <% jsTRY %>
  288.         FilterNumEntries();
  289.         
  290.         if( document.mainForm.ApplyNumEntries.disabled )
  291.         {
  292.             event.cancelBubble=1;
  293.             return false;
  294.         }
  295.     <% jsCATCH %>
  296. }
  297.  
  298. ////////////////////////////////////////////////////////////////
  299. function FilterNumEntries()
  300. {
  301.     <% jsTRY %>
  302.         var szVal = document.forms.mainForm.NumEntries.value;
  303.         if( isNaN( szVal ) || ( 2000 < szVal ) )
  304.         {
  305.             document.forms.mainForm.ApplyNumEntries.disabled = true;
  306.             document.forms.mainForm.NumEntries.style.color = "#ff0000";
  307.         }
  308.         else
  309.         {
  310.             if( 100 > szVal )
  311.             {
  312.                 document.forms.mainForm.ApplyNumEntries.disabled = true;
  313.                 document.forms.mainForm.NumEntries.style.color = "#ff0000";
  314.                 if( ! g_bWarnedUser )
  315.                 {
  316.                     g_bWarnedUser = true;
  317.                     window.alert( "<%= RemoveDangerousCharacters( L_INVALIDNUMDIAGEVENTS_TEXT ) %>" );
  318.                 }
  319.             }
  320.             else
  321.             {
  322.                 document.forms.mainForm.ApplyNumEntries.disabled = false;
  323.                 document.forms.mainForm.NumEntries.style.color = "#000000";
  324.             }
  325.         }
  326.     <% jsCATCH %>
  327. }
  328.  
  329. ////////////////////////////////////////////////////////////////
  330. function SubmitNumEntries()
  331. {
  332.     <% jsTRY %>
  333.         var dwNumEntries = 0;
  334.         dwNumEntries = document.forms.mainForm.NumEntries.value;
  335.         if( dwNumEntries >= 100 )
  336.         {
  337.             document.location = "server_diag.asp?server=<%= g_strQueryStringServer %>&NumEntries=" + dwNumEntries;
  338.         }
  339.     <% jsCATCH %>
  340. } 
  341.  
  342. ////////////////////////////////////////////////////////////////
  343. function ClearAll()
  344. {
  345.     <% jsTRY %>
  346.     document.location = "server_diag.asp?server=<%= g_strQueryStringServer %>&op=clear";
  347.     <% jsCATCH %>
  348. } 
  349.  
  350. ////////////////////////////////////////////////////////////////
  351. function ShowLimitHits( bSimulateClick )
  352. {
  353.     <% jsTRY %>
  354.         var szCheckedValue;
  355.         
  356.         if( bSimulateClick )
  357.         {
  358.             document.forms.mainForm.LimitHits.checked = ! document.forms.mainForm.LimitHits.checked;
  359.         }
  360.         
  361.         if( document.forms.mainForm.LimitHits.checked )
  362.         {
  363.             szCheckedValue = "on";
  364.         }
  365.         else
  366.         {
  367.             szCheckedValue = "off";
  368.         }
  369.         
  370.         document.location = "server_diag.asp?server=<%= g_strQueryStringServer %>&op=LimitHits&value=" + szCheckedValue;
  371.     <% jsCATCH %>
  372. }
  373.  
  374. ////////////////////////////////////////////////////////////////
  375. function ShowPluginWarnings( bSimulateClick )
  376. {
  377.     <% jsTRY %>
  378.         var szCheckedValue;
  379.  
  380.         if( bSimulateClick )
  381.         {
  382.             document.forms.mainForm.PluginWarnings.checked = ! document.forms.mainForm.PluginWarnings.checked;
  383.         }
  384.         
  385.         if( document.forms.mainForm.PluginWarnings.checked )
  386.         {
  387.             szCheckedValue = "on";
  388.         }
  389.         else
  390.         {
  391.             szCheckedValue = "off";
  392.         }
  393.         
  394.         document.location = "server_diag.asp?server=<%= g_strQueryStringServer %>&op=PluginWarnings&value=" + szCheckedValue;
  395.     <% jsCATCH %>
  396. }
  397.  
  398. ////////////////////////////////////////////////////////////////
  399. function ShowPluginErrors( bSimulateClick )
  400. {
  401.     <% jsTRY %>
  402.         var szCheckedValue;
  403.  
  404.         if( bSimulateClick )
  405.         {
  406.             document.forms.mainForm.PluginErrors.checked = ! document.forms.mainForm.PluginErrors.checked;
  407.         }
  408.         
  409.         if( document.forms.mainForm.PluginErrors.checked )
  410.         {
  411.             szCheckedValue = "on";
  412.         }
  413.         else
  414.         {
  415.             szCheckedValue = "off";
  416.         }
  417.         
  418.         document.location = "server_diag.asp?server=<%= g_strQueryStringServer %>&op=PluginErrors&value=" + szCheckedValue;
  419.     <% jsCATCH %>
  420. }
  421.  
  422. ////////////////////////////////////////////////////////////////
  423. function ShowServerWarnings( bSimulateClick )
  424. {
  425.     <% jsTRY %>
  426.         var szCheckedValue;
  427.  
  428.         if( bSimulateClick )
  429.         {
  430.             document.forms.mainForm.ServerWarnings.checked = ! document.forms.mainForm.ServerWarnings.checked;
  431.         }
  432.         
  433.         if( document.forms.mainForm.ServerWarnings.checked )
  434.         {
  435.             szCheckedValue = "on";
  436.         }
  437.         else
  438.         {
  439.             szCheckedValue = "off";
  440.         }
  441.         
  442.         document.location = "server_diag.asp?server=<%= g_strQueryStringServer %>&op=ServerWarnings&value=" + szCheckedValue;
  443.     <% jsCATCH %>
  444. }
  445.  
  446. ////////////////////////////////////////////////////////////////
  447. function ShowServerErrors( bSimulateClick )
  448. {
  449.     <% jsTRY %>
  450.         var szCheckedValue;
  451.  
  452.         if( bSimulateClick )
  453.         {
  454.             document.forms.mainForm.ServerErrors.checked = ! document.forms.mainForm.ServerErrors.checked;
  455.         }
  456.         
  457.         if( document.forms.mainForm.ServerErrors.checked )
  458.         {
  459.             szCheckedValue = "on";
  460.         }
  461.         else
  462.         {
  463.             szCheckedValue = "off";
  464.         }
  465.         
  466.         document.location = "server_diag.asp?server=<%= g_strQueryStringServer %>&op=ServerErrors&value=" + szCheckedValue;
  467.     <% jsCATCH %>
  468. }
  469. <% if brMSIE = g_dwBrowserType then %>
  470. function HilightCurrentNode()
  471. {
  472.     <% jsTRY %>
  473.     <% if( 0 < Len( qs("bUpdateTree") ) ) then %>
  474.         return;
  475.     <% else %>
  476.         var childFrame;
  477.         var framesetHeader;
  478.  
  479.         if( window.parent && window.parent.parent )
  480.         {
  481.             framesetHeader = window.parent.parent;
  482.             if( ! framesetHeader.IsTreeReady() )
  483.             {
  484.                 setTimeout( "HilightCurrentNode();", 1000, "JavaScript" );
  485.                 return;
  486.             }
  487.         }
  488.  
  489.         if( window.parent && window.parent.frames && window.parent.frames[ "treeFrames" ] && window.parent.frames[ "treeFrames" ].frames )
  490.         {
  491.             childFrame = window.parent.frames[ "treeFrames" ].frames[ "frameTreeCode" ];
  492.         }
  493.  
  494.         if( childFrame )
  495.         {
  496.             if( childFrame.Initialized() )
  497.             {
  498.                 childFrame.SetSelectedNode( "diag" );
  499.             }
  500.             else
  501.             {
  502.                 setTimeout( "HilightCurrentNode();", 1000, "JavaScript" );
  503.             }
  504.         }
  505.     <% end if %>
  506.     <% jsCATCH %>
  507. }
  508. <% end if %>
  509.  
  510. //////////////////////////////////////////////////////////////////////////
  511. function Initialize()
  512. {
  513.     <% jsTRY %>
  514. <% if brMSIE = g_dwBrowserType then %>
  515.     setTimeout( "HilightCurrentNode();", 50, "JavaScript" );
  516. <% end if %>
  517.     <% jsCATCH %>
  518. }
  519. -->
  520. </script>
  521. </head>
  522. <body width="100%" bgcolor="<%= colorTabLight %>" topmargin=0 leftmargin=0 rightmargin=0 marginwidth=0 marginwidth=0 marginheight=0 onLoad="JavaScript:<% if bDriveUpdateToTreeView then %>UpdateTreeView();<% end if %>Initialize();" oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  523. <!-- START BANNER -->
  524. <table valign="top" width="100%" height="85" cellspacing="0" cellpadding="0" border="0" class="bannerName" <% if brMSIE <> g_dwBrowserType then %>bgproperties="fixed" bgcolor="#FFFFFF" background="img/gradient_tabview.png"<% end if %>>
  525. <% if brMSIE = g_dwBrowserType then %><img height="85" width="100%" src="img/gradient_tabview.png" style="position:absolute;top=0;left=0;z-index=-1"><% end if %>
  526. <tr>
  527.     <td width="100%">
  528.         <table valign="top" width="100%" hspace="0" vspace="0" cellspacing="4" cellpadding="1" border="0" STYLE="BORDER-COLLAPSE:collapse" margin-top="0" margin-bottom="0">
  529.         <tr>
  530.             <td width="4">
  531.                  
  532.             </td>
  533.             <td valign="middle" align="left" width="32">
  534.                 <img src="img/trouble<% if AtLeastOneError then %>Checked<% end if %>_icon32.gif" border=0 height=32 width=32>
  535.             </td>
  536.             <td width="4">
  537.                  
  538.             </td>
  539.             <td align="left" width="100%">
  540.                 <table width="100%" cellspacing="0" cellpadding="0" border="0">
  541.                 <tr>
  542.                     <% 'server name %>
  543.                         <td valign="bottom" align="left">
  544.                         <span class="bannerName">
  545.                             <%
  546.                                 strTabTitle = CreateTabTitle( g_strServerName )
  547.                                 Response.Write( strTabTitle )
  548.                             %>
  549.                         </span>
  550.                     </td>
  551.                     <td valign="top" align="right">
  552.                          
  553.                     </td>
  554.                 </tr>
  555.                 <tr>
  556.                     <% 'server status %>
  557.                     <td valign="top" align="left">
  558.                         <span>
  559.                             <%= Server.HTMLEncode( L_TROUBLESHOOTSTATUS_TEXT ) & " <b>" & objDiag.Count & "</b>" %>
  560.                         </span>
  561.                     </td>
  562.                 </tr>
  563.                 </table>
  564.             </td>
  565.         </tr>
  566.         </table>
  567.     </td>
  568. </tr>
  569. </table><%
  570. if FALSE = g_bSecureConnection then %>
  571. <table cellspacing=0 cellpadding=0 border=0>
  572.     <tr>
  573.         <script language="JavaScript">
  574.             ShowHideSecureWarning( "img/Not_secure_32.gif" );
  575.         </script>
  576.     </tr>
  577. </table>
  578. <% end if
  579. %><br>
  580. <table width=100% cellspacing=5 cellpadding=0 border=0>
  581. <tr>
  582.     <td>
  583.         <table width=100% cellspacing=0 cellpadding=0 border=0>
  584.         <tr>
  585.             <td>
  586.                 <div class="helptext"><%= Server.HTMLEncode( L_TROUBLESHOOTHELP_TEXT ) %></div>
  587.                 <p>
  588.             </td>
  589.         </tr>
  590.         </table>
  591.     </td>
  592. </tr>
  593. <tr>
  594.     <td>
  595.         <table width=100% cellspacing=0 cellpadding=0 border=1 >
  596.         <tr>
  597.             <td>
  598.                 <table width=100% cellspacing=0 cellpadding=1 border=1 bordercolor="F2F2F2" class="small">
  599.                     <tr class="colheader">
  600.                         <td >
  601.                             <div class="colheader" nowrap><center><%= Server.HTMLEncode( L_TYPE_TEXT ) %></center></div>
  602.                         </td>
  603.                         <td >
  604.                             <div class="colheader" nowrap><center><%= Server.HTMLEncode( L_DATE_TEXT ) %></center></div>
  605.                         </td><% if brMSIE = g_dwBrowserType then %>
  606.                         <td >
  607.                             <div class="colheader" nowrap><center><%= Server.HTMLEncode( L_TIME_TEXT ) %></center></div>
  608.                         </td><% end if %>
  609.                         <td >
  610.                             <div class="colheader" nowrap><center><%= Server.HTMLEncode( L_LOCATION_TEXT ) %></center></div>
  611.                         </td>
  612.                         <td >
  613.                             <div class="colheader" nowrap><center><%= Server.HTMLEncode( L_NUMBER_TEXT ) %></center></div>
  614.                         </td>
  615.                         <td>
  616.                             <div class="colheader" nowrap><center><%= Server.HTMLEncode( L_DESCRIPTION_TEXT ) %></center></div>
  617.                         </td>
  618.                     </tr>
  619.                     <% 
  620.                         Dim i
  621.                         Dim objMessage
  622.                         Dim errType
  623.                         Dim strErrorDescription
  624.                         Dim strErrorAltText
  625.                         Dim strPPName
  626.                         Dim dwNumMessagesDisplayed
  627.                         Dim strImgPath
  628.                         Dim strText
  629.                         Dim strImgAltText
  630.                         dwNumMessages = objDiag.Count
  631.                         i = 0
  632.                         dwNumMessagesDisplayed = 0
  633.  
  634.                         i = 0
  635.                         While ( i < dwNumMessages )
  636.                             i = i + 1
  637.                             
  638.                             strErrorDescription = ""
  639.                             strErrorAltText = ""
  640.                             
  641.                             set objMessage = objDiag.Item( i - 1 )
  642.                             errType = objMessage.Type
  643.                             if( AcceptEventType( errType ) ) then
  644.                                 strImgAltText = EventString( errType )
  645.                                 if( WMS_DIAGNOSTIC_EVENT_LIMIT_HIT = errType ) then
  646.                                     strImgPath = "img/MsgBoxAlert_Warning_16.gif"
  647.                                     strText = Server.HTMLEncode( L_LIMIT_TEXT )
  648.                                 elseif ( WMS_DIAGNOSTIC_EVENT_PLUGIN_EVENT_LOG_ERROR = errType ) then
  649.                                     strImgPath = "img/MsgBoxAlert_Critical_16.gif"
  650.                                     strText = Server.HTMLEncode( L_ERROR_TEXT )
  651.                                 elseif ( WMS_DIAGNOSTIC_EVENT_SERVER_EVENT_LOG_ERROR = errType ) then
  652.                                     strImgPath = "img/MsgBoxAlert_Critical_16.gif"
  653.                                     strText = Server.HTMLEncode( L_ERROR_TEXT )
  654.                                 elseif ( WMS_DIAGNOSTIC_EVENT_PLUGIN_EVENT_LOG_WARNING = errType ) then
  655.                                     strImgPath = "img/MsgBoxAlert_Warning_16.gif"
  656.                                     strText = Server.HTMLEncode( L_WARNING_TEXT )
  657.                                 elseif ( WMS_DIAGNOSTIC_EVENT_SERVER_EVENT_LOG_WARNING = errType ) then
  658.                                     strImgPath = "img/MsgBoxAlert_Warning_16.gif"
  659.                                     strText = Server.HTMLEncode( L_WARNING_TEXT )
  660.                                 end if
  661.                     %>
  662.                     <tr>
  663.                         <td align="middle" valign="middle">
  664.                             <div class="smallest">
  665.                                 <table cellspacing="1" cellpadding="1" border="0">
  666.                                 <tr>
  667.                                     <td valign="absmiddle" width="16" align="left">
  668.                                         <img src="<%= strImgPath %>" height="16" width="16" border="0" title="<%= Server.HTMLEncode( strImgAltText ) %>" ID="<%= strImgAltText %>" alt="<%= Server.HTMLEncode( strImgAltText ) %>">
  669.                                     </td>
  670.                                     <td valign="absmiddle" class="smallest" align="left" width="100%">
  671.                                         <%= strText %>
  672.                                     </td>
  673.                                 </tr>
  674.                                 </table>
  675.                             </div>
  676.                         </td>
  677.                         <% if brMSIE <> g_dwBrowserType then %>
  678.                         <td>
  679.                             <div class="smallest" nowrap>
  680.                                 <script language="JavaScript">PrintLocalizedTimestamp( "<%= FormatDateAsUTC( objMessage.Time ) %>" );</script>
  681.                            </div>
  682.                         </td>
  683.                         <% else %>
  684.                         <td>
  685.                             <div class="smallest">
  686.                                 <script language="JavaScript">PrintLocalizedDate( "<%= FormatDateAsUTC( objMessage.Time ) %>" );</script>
  687.                            </div>
  688.                         </td>
  689.                         <td>
  690.                             <div class="smallest" nowrap>
  691.                                 <script language="JavaScript">PrintLocalizedTime( "<%= FormatDateAsUTC( objMessage.Time ) %>" );</script>
  692.                             </div>
  693.                         </td>
  694.                         <% end if %>
  695.                         <td>
  696.                             <div class="smallest">
  697.                                 <%
  698.                                     strPPName = objMessage.PublishingPointName
  699.                                     if( 0 = Len( strPPName ) ) then
  700.                                         Response.Write( Server.HTMLEncode( g_strDecodedServerName ) )
  701.                                     else
  702.                                         Response.Write Server.HTMLEncode( ConvertPPName( strPPName, 0 ) )
  703.                                     end if
  704.                                 %>
  705.                             </div>
  706.                         </td>
  707.                         <td>
  708.                             <div class="smallest">
  709.                                 <center>
  710.                                 <%= Server.HTMLEncode( objMessage.NumberOfOccurrences ) %>
  711.                                 </center>
  712.                             </div>
  713.                         </td>
  714.                         <td><% GetErrDescription objMessage, errType, strErrorDescription, strErrorAltText %>
  715.                             <div class="smallest" title="<%= strErrorAltText %>">
  716.                                 <%= strErrorDescription %>
  717.                             </div>
  718.                         </td>
  719.                     </tr>
  720.                     <% 
  721.                         end if
  722.                         objMessage = NULL
  723.                     Wend
  724.                     
  725.                     if( 0 = dwNumMessages ) then
  726.                         %>
  727.                     <tr>
  728.                         <td colspan=6>
  729.                              
  730.                         </td>
  731.                     </tr>
  732.                         <%
  733.                     end if
  734.                     %>
  735.                 </table>
  736.             </td>
  737.         </tr>
  738.         </table>
  739.     </td>
  740. </tr>
  741.  
  742. <tr>
  743.     <td>
  744.         <p>
  745.     </td>
  746. </tr>
  747. <tr>
  748.     <td>
  749.         <table cellspacing=0 cellpadding=0 border=0>
  750.         <tr>
  751.             <td>
  752.                 <div class="subheader">
  753.                 <%= Server.HTMLEncode( L_FILTEREVENTS_TEXT ) %>
  754.                 </div>
  755.                 <table width="100%" bgcolor="lightgrey">
  756.                     <tr>
  757.                         <td>
  758.                             <span class="defaultcursor">
  759.                             <form name="mainForm" method="get" onsubmit="JavaScript:return( ValidateInput() );">
  760.                                 <input type="hidden" name="server" value="<%= g_strQueryStringServer %>">
  761.                                 <table cellpadding=3 cellspacing=3 border=0>
  762.                                 <tr>
  763.                                     <td valign="top">
  764.                                         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> type="checkbox" name="LimitHits" <% if bDisplayLimitHits then Response.Write( "checked" ) end if %>
  765.                                         onClick="Javascript:ShowLimitHits( false )" id="limithits">
  766.                                         <label for="limithits" class="handcursor" title="<%= Server.HTMLEncode( L_DISPLIMITHITS_TEXT ) %>"> <%= Server.HTMLEncode( L_DISPLIMITHITS_TEXT ) %></label><br>
  767.                                         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> type="checkbox" name="ServerWarnings" <% if bDisplayServerWarnings then Response.Write( "checked" ) end if %>
  768.                                         onClick="Javascript:ShowServerWarnings( false )" id="serverwarn">
  769.                                         <label for="serverwarn" class="handcursor" title="<%= Server.HTMLEncode( L_DISPSRVLOGWRNS_TEXT ) %>"> <%= Server.HTMLEncode( L_DISPSRVLOGWRNS_TEXT ) %></label><br>
  770.                                         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> type="checkbox" name="ServerErrors" <% if bDisplayServerErrors then Response.Write( "checked" ) end if %>
  771.                                         onClick="Javascript:ShowServerErrors( false )" id="servererr">
  772.                                         <label for="servererr" class="handcursor" title="<%= Server.HTMLEncode( L_DISPSRVLOGERRORS_TEXT ) %>"> <%= Server.HTMLEncode( L_DISPSRVLOGERRORS_TEXT ) %></label><br>
  773.                                         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> type="checkbox" name="PluginWarnings" <% if bDisplayPluginWarnings then Response.Write( "checked" ) end if %>
  774.                                         onClick="Javascript:ShowPluginWarnings( false )" id="plwarn">
  775.                                         <label for="plwarn" class="handcursor" title="<%= Server.HTMLEncode( L_DISPPLUGINWARNINGS_TEXT ) %>"> <%= Server.HTMLEncode( L_DISPPLUGINWARNINGS_TEXT ) %></label><br>
  776.                                         <input tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> type="checkbox" name="PluginErrors" <% if bDisplayPluginErrors then Response.Write( "checked" ) end if %>
  777.                                         onClick="Javascript:ShowPluginErrors( false )" id="plerr">
  778.                                         <label for="plerr" class="handcursor" title="<%= Server.HTMLEncode( L_DISPPLUGINERRORS_TEXT ) %>"> <%= Server.HTMLEncode( L_DISPPLUGINERRORS_TEXT ) %></label><br>
  779.                                     </td>
  780.                                     <td> </td>
  781.                                     <td valign="top">
  782.                                         <table cellpadding=0 cellspacing=3 border=0 width=100%>
  783.                                         <tr>
  784.                                             <td>
  785.                                                 <% RenderWithErrorCheck Server.HTMLEncode( L_NUMTROUBLEENTRIES_TEXT ), "NumErrors" %>
  786.                                             </td>
  787.                                         </tr>
  788.                                         <tr>
  789.                                             <td align="right">
  790.                                         <input 
  791.                                             type="text" 
  792.                                             name="NumEntries" 
  793.                                             id="NumEntries"
  794.                                             title="<%= Server.HTMLEncode( L_NUMTROUBLEENTRIES_TEXT ) %>"
  795.                                             value="<%= dwNumErrorsToStore %>"
  796.                                             size="4"
  797.                                             onKeyUp="JavaScript:FilterNumEntries();" 
  798.                                             onKeyDown="JavaScript:FilterNumEntries();" 
  799.                                             onChange="JavaScript:FilterNumEntries();"
  800.                                             onPaste="JavaScript:FilterNumEntries();"
  801.                                         >
  802.                                         <input 
  803.                                             type="button" 
  804.                                             id="ApplyNumEntries"
  805.                                             name="ApplyNumEntries"                              
  806.                                             value="<%= Server.HTMLEncode( L_APPLYBUTTON_TEXT ) %>" 
  807.                                             onClick="Javascript:SubmitNumEntries()"
  808.                                             disabled
  809.                                         >
  810.                                             </td>
  811.                                         </tr>
  812.                                         </table>
  813.                                     </td>
  814.                                 </tr>
  815.                                 </table>
  816.                             </form>
  817.                             </span>
  818.                         </td>
  819.                     </tr>
  820.                 </table>
  821.             </td>
  822.         </tr>
  823.         </table>
  824.     </td>
  825. </tr>
  826. <tr>
  827.     <td>
  828.         <%
  829.         ToolbarButtonText ( 0 ) = L_CLEARLIST_TEXT
  830.         if( 0 <> dwNumMessages ) then
  831.             ToolbarButtonImage( 0 ) = IMAGE_CLEARLIST
  832.             ToolbarButtonLink ( 0 ) = "Javascript:ClearAll()"
  833.         else
  834.             ToolbarButtonImage( 0 ) = IMAGE_CLEARLISTG
  835.             ToolbarButtonLink ( 0 ) = ""
  836.         end if
  837.         ToolbarButtonAltText( 0 ) = L_CLEARLISTTT_TEXT
  838.         dwLastToolbarIndex = 0
  839.  
  840. if( Session( "ShowServerList" ) ) then
  841.         dwLastToolbarIndex = dwLastToolbarIndex + 1
  842.         ToolbarButtonText ( dwLastToolbarIndex ) = L_BUTTONRETURNTOSERVERLIST_TEXT
  843.         ToolbarButtonImage( dwLastToolbarIndex ) = IMAGE_SERVERLIST
  844.         ToolbarButtonLink ( dwLastToolbarIndex ) = SERVERSLIST_PATH
  845.         ToolbarButtonAltText( dwLastToolbarIndex ) = L_RETURNTOSL_TEXT
  846. end if
  847.  
  848.         dwLastToolbarIndex = dwLastToolbarIndex + 1
  849.         ToolbarButtonText ( dwLastToolbarIndex ) = L_BUTTONHELP_TEXT
  850.         ToolbarButtonImage( dwLastToolbarIndex ) = IMAGE_HELP
  851.         ToolbarButtonLink ( dwLastToolbarIndex ) = HELPTOKEN
  852.         ToolbarButtonAltText( dwLastToolbarIndex ) = L_HELPALT_TEXT
  853.         ToolbarHelpURL = H_SERVERDIAGHELPTOPIC
  854.         ToolbarNesting = H_SERVERLEVEL
  855.  
  856.         %>
  857. <% DrawToolbar FALSE, ( dwLastToolbarIndex + 1 ) %>
  858.  
  859. </table>
  860. <%
  861.     AlertUserWithPopupErrorDialog
  862. '    OnErrorGoBack 
  863.     
  864.     DrawRefreshControl FALSE
  865.     DrawCopyrightInfo
  866. %>
  867. </body>
  868. </html>
  869. <%
  870. LatchCurrentPage "server_diag.asp", qs
  871. EndErrorHandling( "server_diag.asp" )
  872.  
  873. on error resume next
  874.  
  875. Set q = Nothing
  876. Set objDiag = Nothing
  877.  
  878. WMSServerHashASPCleanup
  879. WMSConnectASPCleanup
  880. %>